Определить i:слово;
определить k:Слово;
определить j:Байт;
Определить g:слово;
Определить ch:символ;
начало
   j=1;
   печать("Введите Xmax="); чтение(g); новаястрока;
   печать("Введите Xexit="); чтение(k); новаястрока;
   пока (J==1) делать
     начало
       для (i=1>g) делать
         начало
           если (i==k) тогда
             начало
               j=0;
               печать("Ура работает ");
             конец
           печать(i); новаястрока;
         конец
     конец
   ch="S";
   печать(ch);
конец.